home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / ERRHELPB.PRG < prev    next >
Text File  |  1993-05-04  |  1KB  |  45 lines
  1. FUNCTION ErrHelpB
  2. PARAMETERS plWhen, plOkButton
  3. *----------------------------------------------------------------------------
  4. * NAME
  5. *   ErrHelpB() - 
  6. *
  7. * DESCRIPTION
  8. *
  9. * PARAMETERS
  10. *   plWhen     = 
  11. *   pcButton   = 
  12. *
  13. *----------------------------------------------------------------------------
  14.   PRIVATE lCondOk
  15.   lCondOk = .T.
  16.   IF plWhen
  17.     IF plOkButton
  18.       IF ( TYPE( "pl_help" ) = "L" .AND. .NOT. pl_Help ) .OR. ;
  19.          TYPE( "pl_help" ) = "U"
  20.         DO TButton WITH WM_PAINT, BN_DISABLED, GetId( "BT_CANCEL" )
  21.       ENDIF
  22.     ELSE
  23.       IF ( TYPE( "pl_help" ) = "L" .AND. .NOT. pl_Help ) .OR. ;
  24.          TYPE( "pl_help" ) = "U"
  25.         lCondOk = .F.
  26.       ENDIF
  27.     ENDIF
  28.   ELSE
  29.     IF plOkButton
  30.       IF TYPE( "pl_help" ) = "L" .AND. ;
  31.          pl_Help .AND. ;
  32.          TYPE( "pc_file" ) = "C"
  33.  
  34.         DO _HelpSys WITH pc_file, pc_name, pc_dbf, pl_keep
  35.  
  36.       ENDIF
  37.     ENDIF
  38.   ENDIF
  39.  
  40. RETURN( lCondOk )
  41. *-- EOF: ErrHelpB( plWhen, pcButton )
  42.  
  43.  
  44.  
  45.